home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / vbkids10 / savings.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-09-09  |  4.6 KB  |  153 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSavings 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Savings Account"
  5.    ClientHeight    =   3075
  6.    ClientLeft      =   3735
  7.    ClientTop       =   1635
  8.    ClientWidth     =   3135
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    PaletteMode     =   1  'UseZOrder
  13.    ScaleHeight     =   3075
  14.    ScaleWidth      =   3135
  15.    Begin VB.CommandButton cmdExit 
  16.       Caption         =   "Exit"
  17.       Height          =   495
  18.       Left            =   1680
  19.       TabIndex        =   7
  20.       Top             =   2400
  21.       Width           =   1215
  22.    End
  23.    Begin VB.CommandButton cmdCompute 
  24.       Caption         =   "Compute"
  25.       Height          =   495
  26.       Left            =   240
  27.       TabIndex        =   6
  28.       Top             =   2400
  29.       Width           =   1215
  30.    End
  31.    Begin VB.TextBox txtWeeks 
  32.       BeginProperty Font 
  33.          Name            =   "Arial"
  34.          Size            =   9.75
  35.          Charset         =   0
  36.          Weight          =   400
  37.          Underline       =   0   'False
  38.          Italic          =   0   'False
  39.          Strikethrough   =   0   'False
  40.       EndProperty
  41.       Height          =   495
  42.       Left            =   1680
  43.       TabIndex        =   5
  44.       Top             =   960
  45.       Width           =   1215
  46.    End
  47.    Begin VB.TextBox txtDeposit 
  48.       BeginProperty Font 
  49.          Name            =   "Arial"
  50.          Size            =   9.75
  51.          Charset         =   0
  52.          Weight          =   400
  53.          Underline       =   0   'False
  54.          Italic          =   0   'False
  55.          Strikethrough   =   0   'False
  56.       EndProperty
  57.       Height          =   495
  58.       Left            =   1680
  59.       TabIndex        =   4
  60.       Top             =   240
  61.       Width           =   1215
  62.    End
  63.    Begin VB.Label lblTotal 
  64.       BackColor       =   &H00FFFFFF&
  65.       BorderStyle     =   1  'Fixed Single
  66.       BeginProperty Font 
  67.          Name            =   "Arial"
  68.          Size            =   9.75
  69.          Charset         =   0
  70.          Weight          =   400
  71.          Underline       =   0   'False
  72.          Italic          =   0   'False
  73.          Strikethrough   =   0   'False
  74.       EndProperty
  75.       Height          =   495
  76.       Left            =   1680
  77.       TabIndex        =   3
  78.       Top             =   1680
  79.       Width           =   1215
  80.    End
  81.    Begin VB.Label lblTotalHeading 
  82.       Caption         =   "Total Savings"
  83.       BeginProperty Font 
  84.          Name            =   "Arial"
  85.          Size            =   9.75
  86.          Charset         =   0
  87.          Weight          =   400
  88.          Underline       =   0   'False
  89.          Italic          =   0   'False
  90.          Strikethrough   =   0   'False
  91.       EndProperty
  92.       Height          =   495
  93.       Left            =   240
  94.       TabIndex        =   2
  95.       Top             =   1680
  96.       Width           =   1215
  97.    End
  98.    Begin VB.Label lblWeeksHeading 
  99.       Caption         =   "Number of Weeks"
  100.       BeginProperty Font 
  101.          Name            =   "Arial"
  102.          Size            =   9.75
  103.          Charset         =   0
  104.          Weight          =   400
  105.          Underline       =   0   'False
  106.          Italic          =   0   'False
  107.          Strikethrough   =   0   'False
  108.       EndProperty
  109.       Height          =   495
  110.       Left            =   240
  111.       TabIndex        =   1
  112.       Top             =   960
  113.       Width           =   1215
  114.    End
  115.    Begin VB.Label lblDepositHeading 
  116.       Caption         =   "Weekly Deposit"
  117.       BeginProperty Font 
  118.          Name            =   "Arial"
  119.          Size            =   9.75
  120.          Charset         =   0
  121.          Weight          =   400
  122.          Underline       =   0   'False
  123.          Italic          =   0   'False
  124.          Strikethrough   =   0   'False
  125.       EndProperty
  126.       Height          =   495
  127.       Left            =   240
  128.       TabIndex        =   0
  129.       Top             =   240
  130.       Width           =   1215
  131.    End
  132. Attribute VB_Name = "frmSavings"
  133. Attribute VB_GlobalNameSpace = False
  134. Attribute VB_Creatable = False
  135. Attribute VB_PredeclaredId = True
  136. Attribute VB_Exposed = False
  137. Option Explicit
  138. Dim Deposit As Integer
  139. Dim Weeks As Integer
  140. Dim Total As Integer
  141. Private Sub cmdCompute_Click()
  142. 'Get deposit amount
  143. Deposit = Val(txtDeposit.Text)
  144. 'Get number of weeks
  145. Weeks = Val(txtWeeks.Text)
  146. 'Compute total savings
  147. Total = Deposit * Weeks
  148. 'Display Total
  149. lblTotal.Caption = "$" + Str(Total)
  150. End Sub
  151. Private Sub cmdExit_Click()
  152. End Sub
  153.